<script>on mouseupanswer "List of all of your files" with "OK"end mouseupon mouseEnterchangeCurs 25end mouseEnteron mouseLeavechangeCurs 128end mouseLeave</script>
<script>on mouseUpvisual effect shrink to centerGo to Card "Index"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>47</left>
<top>79</top>
<right>253</right>
<bottom>249</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>File List</name>
<script>on mouseupanswer "List of Files in Your Filing Cabinets" with "OK"end mouseup</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>83</left>
<top>256</top>
<right>222</right>
<bottom>285</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update File List</name>
<script>on mouseUpanswer "Updating the File List May Take Some Time…" with¬"OK" or "Cancel"---- clear the current file list--if it is "OK" then UpdateFileListend mouseUp</script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>122</left>
<top>288</top>
<right>293</right>
<bottom>308</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>File</name>
<script></script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>11</left>
<top>147</top>
<right>73</right>
<bottom>171</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Index</name>
<script></script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>14</left>
<top>87</top>
<right>82</right>
<bottom>134</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Notes</name>
<script></script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>269</left>
<top>79</top>
<right>471</right>
<bottom>249</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>List of Threads</name>
<script>on mouseUpget the clicklineselect the clicklinewait 30 ticksput line (word 2 of the clickline) of field "List of Threads" into theCardgo to card theCard of stack "BT Threads" in new windowend mouseUp</script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>269</left>
<top>31</top>
<right>472</right>
<bottom>69</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>24</textSize>
<textStyle>plain</textStyle>
<textHeight>32</textHeight>
<name>ThreadName</name>
<script>on mouseupanswer "List of all of your threads" with "OK"end mouseupon mouseEnterchangeCurs 25end mouseEnteron mouseLeavechangeCurs 128end mouseLeave</script>
<script>on PrintReportanswer "Cannot print report from this card"end PrintReporton UpdateFileList---- This handler cycles through all of the cards and gets the file-- The file is then checked against the current list. Any duplicates-- are deleted. If a filename is duplicated, then there is some-- difference between the two, such as a trailing space or return.-- If it is a large stack, then this takes a while, even on a Mac II.--global AFileName,numberoffiles,foundit,thefilelist,thecurrentfileset the lockscreen to trueshow message boxput 0 into numberoffilesput 0 into CardCounterput " " into field "File List"---- cycle through the cards--repeat number of cardsput CardCounter+1 into CardCounterput "Checking Card #"&CardCounter into the Message boxpush cardgo to card CardCounterput field "File" into AFileNamepop cardput 1 into linecounterput number of lines of field "File List" into totallinesrepeat totallinesif line linecounter of field "File List" is AFileName thenput "True" into founditexit repeatend ifif line linecounter of field "File List" is not AFileName thenput linecounter+1 into linecounterput "False" into founditend ifend repeatif foundit is not "True" thenif AFileName is not empty thenput AFileName into line totallines+1 of Field "File List"put totallines+1 into totallinesend ifend ifend repeatdelete line 1 of field "file List" -- always an empty line up frontSortFileListset the lockscreen to falseEnd UpdateFileListOn UpdateThreadListanswer "Update the BT Threads stack _and_ your thread list?" with¬"OK" or "Cancel"if it is "OK" thenanswer "This could take a while…" with "OK" or "Cancel"if it is "OK" thenSet the lockscreen to falseSet the lockmessages to falseput the short name of this stack into theBTStackGo to stack "BT Threads"Send "doUpdateNew(theBTStack)" to stackend ifend ifEnd UpdateThreadListon Linkingplay "Harpsichord"end Linking</script>